home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD020b.dsk / YK.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  41 lines
  1. 10  RESTORE : GOTO 230
  2. 20  XDRAW 31 AT 260,65: DRAW 31 AT 260,64: XDRAW 31 AT 260,64: DRAW 31 AT 260,65
  3. 30  POKE B,0:B$ =  RIGHT$(B$ +" ",12): CALL C: PRINT B$: RETURN 
  4. 40  XDRAW 29 AT 235,65: DRAW 29 AT 235,64: XDRAW 29 AT 235,64: DRAW 29 AT 235,65
  5. 50  POKE B,0:L = L -1: IF L <1  THEN L = 1:B$ = " "
  6. 60 B$ =  LEFT$(B$,L): CALL C: PRINT B$: RETURN 
  7. 70  XDRAW 51 AT 252,40: XDRAW 53 AT 258,40: XDRAW 47 AT 264,40: DRAW 51 AT 252,39: DRAW 53 AT 258,39: DRAW 47 AT 264,39: XDRAW 51 AT 252,39: XDRAW 53 AT 258,39: XDRAW 47 AT 264,39
  8. 80  DRAW 51 AT 252,40: DRAW 53 AT 258,40: DRAW 47 AT 264,40
  9. 90  CALL C: PRINT "   RETURN   ": POKE B,0: FOR Q = 0 TO 80: NEXT 
  10. 100 B$ = "            ": PRINT B$: RETURN 
  11. 110  DRAW 60 AT 129,111: XDRAW 60 AT 129,111: RETURN 
  12. 120  GET A$:A =  ASC(A$):I = A -K
  13. 125 R =  PEEK( -16336):R =  PEEK( -16335)
  14. 130  IF A = 21  THEN  GOSUB 20: GOTO 120
  15. 140  IF A = 32  THEN  GOSUB 110: GOTO 190
  16. 150  IF A = 8  THEN  GOSUB 40: GOTO 120
  17. 160  IF A = 13  THEN  GOSUB 70: GOTO 120
  18. 170  IF A <33  OR A >90  THEN 120
  19. 180  XDRAW I AT X(I),Y(I): DRAW I AT X(I),Y(I) -1: XDRAW I AT X(I),Y(I) -1: DRAW I AT X(I),Y(I)
  20. 190 B$ =  RIGHT$(B$ +A$,12): PRINT B$
  21. 200 L =  LEN(B$): IF L >12  THEN B$ =  RIGHT$(B$,12)
  22. 210  GOTO 120
  23. 230  HIMEM: 8191
  24. 260  POKE 32,13: POKE 33,12: POKE 34,21: POKE 35,1: PRINT : PRINT : PRINT : PRINT 
  25. 270  POKE 232,0: POKE 233,96: DIM X(60): DIM Y(60)
  26. 280  FOR I = 2 TO 59: READ X(I),Y(I): NEXT 
  27. 290  FOR I = 2 TO 59: DRAW I AT X(I),Y(I): NEXT 
  28. 390  DRAW 115 AT 230,36: DRAW 113 AT 232,40: DRAW 117 AT 236,44
  29. 400  DRAW 51 AT 252,40: DRAW 53 AT 258,40: DRAW 47 AT 264,40
  30. 410  DRAW 29 AT 235,65: DRAW 14 AT 237,65: DRAW 31 AT 260,65: DRAW 14 AT 258,65
  31. 420  DRAW 63 AT 9,90: DRAW 63 AT 252,90
  32. 430 B$ = "            ": INVERSE : PRINT B$
  33. 450 B =  -16368:C =  -868:K = 31: GOTO 120
  34. 460  HPLOT A,B TO A +16,B TO A +16,B +18 TO A,B +18 TO A,B
  35. 470 A = A +21
  36. 480  RETURN 
  37. 490  DATA  14,11,35,11,56,11,77,11,98,11,119,11,140,11,161,11,182,11,224,11,216,61,182,94,246,20,203,94
  38. 500  DATA  224,94,204,20,15,20,36,20,57,20,78,20,99,20,120,20,141,20,162,20,183,20,225,20,216,69,182,86,245,11
  39. 510  DATA  203,86,224,86,211,36,27,65,119,90,77,90,69,65,64,40,90,65,111,65
  40. 520  DATA  132,65,169,40,153,65,174,65,195,65,161,90,140,90,190,40,211,44,22,40,85,40,48,65,106,40,148,40,98,90,43,40,56,90,127,40,35,90
  41. 530  DATA  999,9